home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS 8 / P8S007A.dsk / D.HI.RES.TEST.bas < prev    next >
BASIC Source File  |  2012-02-16  |  3KB  |  63 lines
  1. 10  DATA 8,120,173,0,224,141,208,2,173,0,208,141,209,2,173,0,212,141,210,2,173,0,216,141,211,2,173,129,192,173,129,192,173,179,251,201,6,208,73,173 
  2. 20  DATA  23,192,48,60,173,19,192,48,39,173,22,192,48,34,160,42,190,162,3,185,0,0,150,0,153,162,3,136,208,242,76,1,0,8,160,42,185,162,3,153
  3. 30  DATA  0,0,136,208,247,104,176,8,169,128,141,207,3,76,73,3,169,64,141,207,3,76,73,3,169,32,141,207,3,76,73,3,169,0,141,207,3,173,0,224
  4. 40  DATA  205,208,2,208,24,173,0,208,205,209,2,208,16,173,0,212,205,210,2,208,8,173,0,216,205,211,2,240,56,173,136,192,173,0,224,205,208,2,240,6
  5. 50  DATA  173,128,192,76,161,3,173,0,208,205,209,2,240,6,173,128,192,76,161,3,173,0,212,205,210,2,240,6,173,128,192,76,161,3,173,0,216,205,211,2
  6. 60  DATA  240,3,173,128,192,40,96,169,238,141,5,192,141,3,192,141,0,8,173,0,12,201,238,208,14,14,0,12,173,0,8,205,0,12,208,3,56,176,1,24
  7. 70  DATA  141,4,192,141,2,192,76,29,3,234
  8. 80 ALOOK = 975:START = 724
  9. 90  FOR I = 0 TO 249
  10. 100  READ BYTE
  11. 110  POKE START +I,BYTE
  12. 120  NEXT 
  13. 130  CALL START
  14. 140 RESULTS =  PEEK(ALOOK)
  15. 150  IF RESULTS <128  OR  PEEK(64435) < >6  THEN  HOME : VTAB 8: PRINT  TAB( 5);"YOU MUST HAVE A IIC OR 128K IIE": PRINT : PRINT  TAB( 12);"TO RUN THIS TEST ": PRINT : PRINT  TAB( 14);"PRESS RETURN ";: GET A$: PRINT A$: PRINT  CHR$(13); CHR$(4);"RUN HELLO2"
  16. 500  PRINT  CHR$(21): HOME 
  17. 510  REM : THIS PROGRAM DRAWS 16 COLOR BARS ON THE SCREEN IN DOUBLE HI-RES GRAPHICS MODE
  18. 520  REM : SOFTALK JULY, 1983
  19. 530  REM : DON D. WORTH 
  20. 540  PRINT  CHR$(4);"PR#3": PRINT  CHR$(12): PRINT 
  21. 550  VTAB 21: POKE 36,1: PRINT " ";
  22. 560  REM : DOUBLE HI-RES INITIALIZATION AN SCREEN CLEAR
  23. 570  REM 
  24. 580  POKE 49154,0: POKE 49156,0: POKE 49153,0: POKE 49239,0
  25. 590  POKE 49160,0: POKE 49246,0: POKE 49232,0: POKE 49165,0
  26. 600 XB = 0
  27. 610  REM : ERASE THE GRAPHICS SCREN
  28. 620  HGR 
  29. 630  POKE 49237,0: CALL 62450
  30. 640  HCOLOR= 7
  31. 650 DL = 73/16:TB =  -(DL/2)
  32. 660  REM : PLOT GROUPS OF 4 DOTS IN EVERY COMBINATION
  33. 670  FOR X0 = 0 TO 1
  34. 680  FOR X1 = 0 TO 1
  35. 690  FOR X2 = 0 TO 1
  36. 700  FOR X3 = 0 TO 1
  37. 710 TB = TB +DL:T =  INT(TB)
  38. 720  VTAB 21: POKE 36,T: PRINT X0: POKE 36,T: PRINT X1
  39. 730  POKE 36,T: PRINT X2: POKE 36,T: PRINT X3;
  40. 740  FOR AD = 0 TO 24  STEP 4
  41. 750  IF X0  THEN X = XB +AD: GOSUB 890
  42. 760  IF X1  THEN X = XB +1 +AD: GOSUB 890
  43. 770  IF X2  THEN X = XB +2 +AD: GOSUB 890
  44. 780  IF X3  THEN X = XB +3 +AD: GOSUB 890
  45. 790  NEXT AD
  46. 800 XB = XB +32
  47. 810  NEXT X3,X2,X1,X0
  48. 820  PRINT " ";: GET A$
  49. 830  PRINT 
  50. 840  ONERR  GOTO 960
  51. 850  PRINT  CHR$(17)
  52. 860  PRINT  CHR$(21): TEXT : HOME 
  53. 870  PRINT  CHR$(4);"RUN HELLO2"
  54. 880  REM : DOUBLE HI-RES VERTICAL LINE DRAW ROUTINE
  55. 890 XX =  INT(X/7):PG = XX/2 - INT(XX/2)
  56. 900 XX =  INT(XX/2) +((X/7 -XX))
  57. 910 XX =  INT(XX *7 +.5)
  58. 920  POKE 49237,0: IF PG  THEN  POKE 49236,0
  59. 930  HPLOT XX,O TO XX,159
  60. 940  POKE 49236,0
  61. 950  RETURN 
  62. 980  GET P$: PRINT P$
  63. 990  GOTO 870